VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "XbrlRefEle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public id As Integer
Public tag As String
Public schema As String
Public value As Variant
Sub load(i As Integer, sch As String, tg As String)

id = i
schema = sch
tag = tg

End Sub
Property Get compkey(keyNo As Integer) As Variant

Select Case keyNo
    Case 0
        compkey = id
    Case 2
        compkey = id
    Case 5
        compkey = tag
End Select

End Property
